/*******************************************************************

	LIST TESTS - Chris Douglass

*******************************************************************/

save fetch uri from http://www.google.com into aList
save fetch everything from http://www.google.com into aBigList

/*******************************************************************
   Will attempt to find:
   http://news.google.com/nwshp?hl=en&tab=wn
   in aList.
   
   The URIs I was aware of while writing this were:
   
   [http://www.google.com/imghp?hl=en&tab=wi, http://video.google.com/?hl=en&tab=wv, 
   http://maps.google.com/maps?hl=en&tab=wl, http://news.google.com/nwshp?hl=en&tab=wn, 
   http://www.google.com/prdhp?hl=en&tab=wf, http://mail.google.com/mail/?hl=en&tab=wm, 
   http://www.google.com/intl/en/options/, 
   http://www.google.com/ig%3Fhl%3Den%26source%3Diglk&usg=AFQjCNFA18XPfgb7dKnXfKz7x7g1GDH1tg, 
   https://www.google.com/accounts/ServiceLogin?hl=en&continue=http://www.google.com/]
*******************************************************************/
if aList contains 'http://news.google.com/nwshp?hl=en&tab=wn' then
	show 'success: aList contains http://news.google.com/nwshp?hl=en&tab=wn returned TRUE'
else
	show '**FAILURE**: aList contains http://news.google.com/nwshp?hl=en&tab=wn returned FALSE'
end if

if aList contains 'not in the list' then
	show '**FAILURE**: aList contains not in the list returned TRUE'
else
	show 'success: aList contains not in the list returned FALSE'
end if


/*******************************************************************
	Will compare the size of aBigList and aList.
*******************************************************************/
if aList is smaller than aBigList then
	show 'success: aList is smaller than aBigList returned TRUE'
else
	show '**FAILURE**: aList is smaller than aBigList returned FALSE'
end if

if aBigList is smaller than aList then
	show '**FAILURE**: aBigList is smaller than aList returned TRUE'
else
	show 'success: aBigList is smaller than aList returned FALSE'
end if

if aBigList is larger than aList then
	show 'success: aBigList is larger than aList returned TRUE'
else
	show '**FAILURE**: aBigList is larger than aList returned FALSE'
end if

if aList is larger than aBigList then
	show '**FAILURE**: aList is larger than aBigList returned TRUE'
else
	show 'success: aList is larger than aBigList returned FALSE'
end if


/*******************************************************************
	Will use contains to see if aList contains a URI.
*******************************************************************/
if aList contains uri then
	show 'success: aList contains http://news.google.com/nwshp?hl=en&tab=wn returned TRUE'
else
	show '**FAILURE**: aList contains http://news.google.com/nwshp?hl=en&tab=wn returned FALSE'
end if

if aList contains email then
	show '**FAILURE**: aList contains email returned TRUE'
else
	show 'success: aList contains email returned FALSE'
end if

/*******************************************************************
	Since aBigList should contain aList (aList is a subset),
	let's check that.
*******************************************************************/
if aBigList contains aList then
	show 'success: aBigList contains aList returned TRUE'
else
	show '**FAILURE**: aBigList contains aList returned FALSE'
end if

if aList contains aBigList then
	show '**FAILURE**: aList contains aBigList returned TRUE'
else
	show 'success: aList contains aBigList returned FALSE'
end if

/*******************************************************************
	ERROR CASES
	THESE SHOULD NOT PARSE
*******************************************************************/
if aList is a aBigList then
	show 'this shouldn't work!'
end if